home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / gri_sa.inc < prev    next >
Text File  |  1998-07-22  |  4KB  |  239 lines
  1. *---------------------------------------
  2. *
  3. *    ò\Ī
  4. *
  5. *    òKÄEïZ
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. gri_sa_s:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     tst.w    C_LR_F(a1)
  14.     bne    @f
  15.  
  16.     subi.w    #16,d1
  17.     subi.w    #24,d2
  18.     addi.w    #$0054,d7
  19.     move.w    d1,(a6)+
  20.     move.w    d2,(a6)+
  21.     move.w    d7,(a6)+
  22.     move.w    #$0003,(a6)+
  23.  
  24.     addi.w    #16,d1
  25.     addq.w    #1,d7
  26.     move.w    d1,(a6)+
  27.     move.w    d2,(a6)+
  28.     move.w    d7,(a6)+
  29.     move.w    #$0003,(a6)+
  30.  
  31.     subi.w    #16,d1
  32.     addi.w    #16,d2
  33.     addq.w    #1,d7
  34.     move.w    d1,(a6)+
  35.     move.w    d2,(a6)+
  36.     move.w    d7,(a6)+
  37.     move.w    #$0003,(a6)+
  38.  
  39.     addi.w    #16,d1
  40.     addq.w    #1,d7
  41.     move.w    d1,(a6)+
  42.     move.w    d2,(a6)+
  43.     move.w    d7,(a6)+
  44.     move.w    #$0003,(a6)+
  45.  
  46.     subi.w    #16,d1
  47.     addi.w    #16,d2
  48.     addq.w    #1,d7
  49.     move.w    d1,(a6)+
  50.     move.w    d2,(a6)+
  51.     move.w    d7,(a6)+
  52.     move.w    #$0003,(a6)+
  53.  
  54.     addi.w    #16,d1
  55.     addq.w    #1,d7
  56.     move.w    d1,(a6)+
  57.     move.w    d2,(a6)+
  58.     move.w    d7,(a6)+
  59.     move.w    #$0003,(a6)+
  60.  
  61.     rts
  62. @@:
  63.     subi.w    #16,d1
  64.     subi.w    #24,d2
  65.     addi.w    #$4055,d7
  66.     move.w    d1,(a6)+
  67.     move.w    d2,(a6)+
  68.     move.w    d7,(a6)+
  69.     move.w    #$0003,(a6)+
  70.  
  71.     addi.w    #16,d1
  72.     subq.w    #1,d7
  73.     move.w    d1,(a6)+
  74.     move.w    d2,(a6)+
  75.     move.w    d7,(a6)+
  76.     move.w    #$0003,(a6)+
  77.  
  78.     subi.w    #16,d1
  79.     addi.w    #16,d2
  80.     addq.w    #3,d7
  81.     move.w    d1,(a6)+
  82.     move.w    d2,(a6)+
  83.     move.w    d7,(a6)+
  84.     move.w    #$0003,(a6)+
  85.  
  86.     addi.w    #16,d1
  87.     subq.w    #1,d7
  88.     move.w    d1,(a6)+
  89.     move.w    d2,(a6)+
  90.     move.w    d7,(a6)+
  91.     move.w    #$0003,(a6)+
  92.  
  93.     subi.w    #16,d1
  94.     addi.w    #16,d2
  95.     addq.w    #3,d7
  96.     move.w    d1,(a6)+
  97.     move.w    d2,(a6)+
  98.     move.w    d7,(a6)+
  99.     move.w    #$0003,(a6)+
  100.  
  101.     addi.w    #16,d1
  102.     subq.w    #1,d7
  103.     move.w    d1,(a6)+
  104.     move.w    d2,(a6)+
  105.     move.w    d7,(a6)+
  106.     move.w    #$0003,(a6)+
  107.  
  108.     rts
  109. *---------------------------------------
  110. gri_sa_a:
  111.     move.w    d7,d3
  112.     move.w    C_X(a1),d1
  113.     move.w    C_Y(a1),d2
  114.     tst.w    C_LR_F(a1)
  115.     bne    @f
  116.  
  117.     subi.w    #16,d1
  118.     subi.w    #24,d2
  119.     addi.w    #$005a,d7
  120.     move.w    d1,(a6)+
  121.     move.w    d2,(a6)+
  122.     move.w    d7,(a6)+
  123.     move.w    #$0003,(a6)+
  124.  
  125.     addi.w    #16,d1
  126.     addq.w    #1,d7
  127.     move.w    d1,(a6)+
  128.     move.w    d2,(a6)+
  129.     move.w    d7,(a6)+
  130.     move.w    #$0003,(a6)+
  131.  
  132.     subi.w    #16,d1
  133.     addi.w    #16,d2
  134.     addq.w    #1,d7
  135.     move.w    d1,(a6)+
  136.     move.w    d2,(a6)+
  137.     move.w    d7,(a6)+
  138.     move.w    #$0003,(a6)+
  139.  
  140.     addi.w    #16,d1
  141.     addq.w    #1,d7
  142.     move.w    d1,(a6)+
  143.     move.w    d2,(a6)+
  144.     move.w    d7,(a6)+
  145.     move.w    #$0003,(a6)+
  146.  
  147.     subi.w    #16,d1
  148.     addi.w    #16,d2
  149.     addq.w    #1,d7
  150.     move.w    d1,(a6)+
  151.     move.w    d2,(a6)+
  152.     move.w    d7,(a6)+
  153.     move.w    #$0003,(a6)+
  154.  
  155.     addi.w    #16,d1
  156.     addq.w    #1,d7
  157.     move.w    d1,(a6)+
  158.     move.w    d2,(a6)+
  159.     move.w    d7,(a6)+
  160.     move.w    #$0003,(a6)+
  161.  
  162.     lea.l    CHARA_DATA(a1),a3
  163.     tst.w    C_M_F(a3)
  164.     beq    3f
  165.     move.w    C_X(a3),d1
  166.     move.w    C_Y(a3),d2
  167.     addi.w    #$0060,d3
  168.     add.w    C_ANI_WC(a3),d3
  169.     subq.w    #8,d1
  170.     subq.w    #8,d2
  171.     move.w    d1,(a6)+
  172.     move.w    d2,(a6)+
  173.     move.w    d3,(a6)+
  174.     move.w    #$0003,(a6)+
  175. 3:
  176.     rts
  177. @@:
  178.     subi.w    #16,d1
  179.     subi.w    #24,d2
  180.     addi.w    #$405b,d7
  181.     move.w    d1,(a6)+
  182.     move.w    d2,(a6)+
  183.     move.w    d7,(a6)+
  184.     move.w    #$0003,(a6)+
  185.  
  186.     addi.w    #16,d1
  187.     subq.w    #1,d7
  188.     move.w    d1,(a6)+
  189.     move.w    d2,(a6)+
  190.     move.w    d7,(a6)+
  191.     move.w    #$0003,(a6)+
  192.  
  193.     subi.w    #16,d1
  194.     addi.w    #16,d2
  195.     addq.w    #3,d7
  196.     move.w    d1,(a6)+
  197.     move.w    d2,(a6)+
  198.     move.w    d7,(a6)+
  199.     move.w    #$0003,(a6)+
  200.  
  201.     addi.w    #16,d1
  202.     subq.w    #1,d7
  203.     move.w    d1,(a6)+
  204.     move.w    d2,(a6)+
  205.     move.w    d7,(a6)+
  206.     move.w    #$0003,(a6)+
  207.  
  208.     subi.w    #16,d1
  209.     addi.w    #16,d2
  210.     addq.w    #3,d7
  211.     move.w    d1,(a6)+
  212.     move.w    d2,(a6)+
  213.     move.w    d7,(a6)+
  214.     move.w    #$0003,(a6)+
  215.  
  216.     addi.w    #16,d1
  217.     subq.w    #1,d7
  218.     move.w    d1,(a6)+
  219.     move.w    d2,(a6)+
  220.     move.w    d7,(a6)+
  221.     move.w    #$0003,(a6)+
  222.  
  223.     lea.l    CHARA_DATA(a1),a3
  224.     tst.w    C_M_F(a3)
  225.     beq    3f
  226.     move.w    C_X(a3),d1
  227.     move.w    C_Y(a3),d2
  228.     addi.w    #$4060,d3
  229.     add.w    C_ANI_WC(a3),d3
  230.     subq.w    #8,d1
  231.     subq.w    #8,d2
  232.     move.w    d1,(a6)+
  233.     move.w    d2,(a6)+
  234.     move.w    d3,(a6)+
  235.     move.w    #$0003,(a6)+
  236. 3:
  237.     rts
  238. *---------------------------------------
  239.